#!/usr/bin/perl -w

use strict;
use Storable;

my($SERVER);

$SERVER->{account}->{guest} = "guest";
my($ACCOUNTS) = $SERVER->{account};
store $ACCOUNTS, 'psalogin.rc';